object CurrencyForm: TCurrencyForm
  Left = 267
  Top = 191
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Currency Conversion'
  ClientHeight = 205
  ClientWidth = 429
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object HelpButton: TBitBtn
    Left = 348
    Top = 170
    Width = 75
    Height = 26
    Hint = 'Get help...'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = HelpButtonClick
    Kind = bkHelp
  end
  object CloseButton: TBitBtn
    Left = 264
    Top = 170
    Width = 75
    Height = 26
    Hint = 'Return to calculator'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = CloseButtonClick
    Kind = bkClose
  end
  object SolveButton: TBitBtn
    Left = 180
    Top = 170
    Width = 75
    Height = 26
    Hint = 'Perform conversion.'
    Caption = '&Solve'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = SolveButtonClick
  end
  object CurrencyGroup: TRadioGroup
    Left = 0
    Top = -20
    Width = 429
    Height = 183
    Hint = 'Select currency to convert to...|'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      'Convert From'
      'Convert From United States $')
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object CurFromDropDown: TComboBox
    Left = 118
    Top = 26
    Width = 179
    Height = 24
    Hint = 'Select foreign currency.'
    Style = csDropDownList
    ItemHeight = 16
    Items.Strings = (
      'Belgian Franc'
      'British Pound'
      'Canadian $'
      'French Frank'
      'German Mark'
      'Italian Lire'
      'Israeli Shekel'
      'Japanese Yen'
      'Mexican Peso'
      'Nigerian Naira'
      'Saudi Riyal'
      'Swiss Franc'
      'United States $')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnChange = CurFromDropDownChange
  end
  object CurFromEnter: TMemo
    Left = 302
    Top = 24
    Width = 120
    Height = 30
    Hint = 'Enter foreign currency amount.'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    WordWrap = False
    OnKeyUp = CurFromEnterKeyUp
  end
  object CurFactor: TMemo
    Left = 302
    Top = 64
    Width = 120
    Height = 30
    Hint = 'Enter factor for conversion '#13'to United States dollars.|'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    WordWrap = False
    OnExit = CurFactorExit
    OnKeyUp = CurFactorKeyUp
  end
  object CurToEnter: TMemo
    Left = 302
    Top = 104
    Width = 120
    Height = 30
    Hint = 'Enter US dollars.'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    WordWrap = False
    OnKeyUp = CurToEnterKeyUp
  end
  object FactorLabel: TMemo
    Left = 56
    Top = 68
    Width = 131
    Height = 27
    BorderStyle = bsNone
    Color = clSilver
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Lines.Strings = (
      'Conversion Factor:')
    ParentFont = False
    TabOrder = 8
  end
  object SaveButton: TBitBtn
    Left = 96
    Top = 170
    Width = 75
    Height = 26
    Hint = 'Save conversion factor.'
    Caption = 'S&ave'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = SaveButtonClick
  end
end